home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / DEBUG.ELC next >
Text File  |  1993-03-28  |  8KB  |  75 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:37:44 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/debug.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar debug-function-list nil "\
  14. List of functions currently set for debug on entry.")
  15. (byte-code "└└ç" [debug debugger] 1)
  16. (fset 'debug #[(&rest debugger-args) "└┴!ê┬├ ┬ë─╞╟!)p┬ëë    \n  ╤Äè╥ïê*\n.    ç" [message "Entering debugger..." nil match-data fundamental-mode default-major-mode generate-new-buffer "*Backtrace*" cursor-in-echo-area executing-macro debugger-step-after-exit debugger-old-buffer debugger-buffer debug-on-quit debug-on-error debugger-match-data debugger-value ((byte-code "└    !ê┬ !ç" [kill-buffer debugger-buffer store-match-data debugger-match-data] 2)) ((byte-code "└    !ê┬ êp├─╚ ê+ebê╔ ê`╩╦!ê╠yê`|ê═ ê@╧>½¢╨cê@╤=½ε╥╙├\"ê╘╠!ê╒cê╓yê¬▌@╫=½₧╪cêA@┌p\"ê█cê╘╠!ê▄cê╓yê¬╕@▌=½É▐cê┌A@p\"ê█cê¬í@├=½à▀cê¬ò┌@α=½àA¬ép\"ê█cêßΓ!ê├α├#$ßΓ!êσ ê+αç" [pop-to-buffer debugger-buffer erase-buffer t 50 print-length print-escape-newlines standard-output backtrace debugger-mode re-search-forward "\n[* ] debug(" 1 debugger-reenable debugger-args (lambda debug) "Entering:\n" debug backtrace-debug 4 delete-char 42 0 exit "Return value: " debugger-value prin1 10 32 error "Signalling: " "Beginning evaluation of function call form:\n" nil message "" buffer-read-only inhibit-trace recursive-edit] 3)) debug-on-next-call] 9 "\
  17. Enter debugger.  Returns if user says \"continue\".
  18. Arguments are mainly for use when this is called
  19.  from the internals of the evaluator.
  20. You may call with no args, or you may
  21.  pass nil as the first arg and any other args you like.
  22.  In that case, the list of args after the first will 
  23.  be printed into the backtrace buffer."])
  24. (fset 'debugger-step-through #[nil "└┬├!ê─ ç" [t debugger-step-after-exit message "Proceding, will debug on next eval or call." exit-recursive-edit] 2 "\
  25. Proceed, stepping through subexpressions of this expression.
  26. Enter another debugger on next entry to eval, apply or funcall." nil])
  27. (fset 'debugger-continue #[nil "└┴!ê┬ ç" [message "Continuing." exit-recursive-edit] 2 "\
  28. Continue, evaluating this expression without stopping." nil])
  29. (fset 'debugger-return-value #[(val) "┬├─\"ê┼    !ê╞ ç" [val debugger-value princ "Returning " t prin1 exit-recursive-edit] 3 "\
  30. Continue, specifying value to return.
  31. This is only useful when the value returned from the debugger
  32. will be used, such as in a debug on exit from a frame." "XReturn value (evaluated): "])
  33. (fset 'debugger-jump #[nil "┴\\┬ ê) ë½Æ @┼ @ @K╞#Mê Aë¼n)╟╚!ê╔ ç" [debugger-frame-offset 2 debugger-frame debug-function-list list debug-on-entry-1 nil message "Continuing through this frame" exit-recursive-edit] 6 "\
  34. Continue to exit from this frame, with all debug-on-entry suspended." nil])
  35. (fset 'debugger-reenable #[nil "ë¡₧    @K:¼à┬    @!ê    @├    @    @K─#Mê    Aë¼c┼)ç" [debug-function-list list debug-convert-byte-code debug-on-entry-1 t nil] 6])
  36. (fset 'debugger-frame-number #[nil "è└yê`└ebê``├\\{─ܼë``├\\{┼ܽê╞╟!ê╚╔!ê╔yê╩uêg╦U½å╚╔!ê¬ä╚╩!ê╔yê`\nX½à    T¬a    +ç" [0 count opoint 6 "Signal" "Return" search-forward ":" forward-sexp 1 2 40] 3 "\
  37. Return number of frames in backtrace before the one point points at."])
  38. (defconst debugger-frame-offset 8 "\
  39. ")
  40. (fset 'debugger-frame #[nil "└yê┴ ├\n \\┼\"ê)g╞U½ï╟╔╩!ê╦cê)└yê╟ç" [0 debugger-frame-number level backtrace-debug debugger-frame-offset t 32 nil buffer-read-only delete-char 1 42] 3 "\
  41. Request entry to debugger when this frame exits.
  42. Applies to the frame whose line point is on in the backtrace." nil])
  43. (fset 'debugger-frame-clear #[nil "└yê┴ ├\n \\┼\"ê)g╞U½ï┼╚╔!ê╩cê)└yê┼ç" [0 debugger-frame-number level backtrace-debug debugger-frame-offset nil 42 buffer-read-only delete-char 1 32] 3 "\
  44. Do not enter to debugger when this frame exits.
  45. Applies to the frame whose line point is on in the backtrace." nil])
  46. (byte-code "└┴Mê┬├!¼é─ ¼╙┼╟ ╚ !ê╔ ╩╦#ê╔ ╠═#ê╔ ╬╧#ê╔ ╨╤#ê╔ ╥╙#ê╔ ╘╒#ê╔ ╓╫#ê╔ ╪┘#ê╔ ┌█#ê╔ ▄▌#ê╔ ▐└#ê╔ ▀α#ê)ßΓπΣ#ç" [debugger-eval-expression #[(exp) "è└    !¼ép    qê┬ !)ç" [buffer-name debugger-old-buffer eval-expression exp] 2 nil "xEval: "] boundp debugger-mode-map nil 32 loop make-keymap suppress-keymap define-key "-" negative-argument "b" debugger-frame "c" debugger-continue "j" debugger-jump "r" debugger-return-value "u" debugger-frame-clear "d" debugger-step-through "l" debugger-list-functions "h" describe-mode "q" top-level "e" " " next-line put debugger-mode mode-class special] 4)
  47. (fset 'debugger-mode #[nil "└ ê┴├┼╟!ê╔\n!ç" [kill-all-local-variables debugger-mode major-mode "Debugger" mode-name t truncate-lines set-syntax-table emacs-lisp-mode-syntax-table use-local-map debugger-mode-map] 2 "\
  48. Mode for backtrace buffers, selected in debugger.
  49. \\<debugger-mode-map>
  50. A line starts with `*' if exiting that frame will call the debugger.
  51. Type \\[debugger-frame] or \\[debugger-frame-clear] to set or remove the `*'.
  52.  
  53. When in debugger due to frame being exited,
  54. use the \\[debugger-return-value] command to override the value
  55. being returned from that frame.
  56.  
  57. Use \\[debug-on-entry] and \\[cancel-debug-on-entry] to control
  58. which functions will enter the debugger when called.
  59.  
  60. Complete list of commands:
  61. \\{debugger-mode-map}"])
  62. (fset 'debug-on-entry #[(function) "└ ê┴\nK!½à├─\n\"ê\nK:¼ä┼\n!ê\nK:¼à├╞\n\"ê\n╟\nëK╚#Mê\n    >¼å\n    B    \nç" [debugger-reenable subrp function error "Function %s is a primitive" debug-convert-byte-code "Definition of %s is not a list" debug-on-entry-1 t debug-function-list] 5 "\
  63. Request FUNCTION to invoke debugger each time it is called.
  64. If the user continues, FUNCTION's execution proceeds.
  65. Works by modifying the definition of FUNCTION,
  66. which must be written in Lisp, not predefined.
  67. Use \\[cancel-debug-on-entry] to cancel the effect of this command.
  68. Redefining FUNCTION also does that." "aDebug on entry (to function): "])
  69. (fset 'cancel-debug-on-entry #[(&optional function) "└ ê    ½ù    ┬ÿ¼Æ    ├    ëK─#Mê┼    \"    ç╟╚!ê╔╩\"ç" [debugger-reenable function "" debug-on-entry-1 nil delq debug-function-list message "Cancelling debug-on-entry for all functions" mapcar cancel-debug-on-entry] 5 "\
  70. Undo effect of \\[debug-on-entry] on FUNCTION.
  71. If argument is nil or an empty string, cancel for all functions." "aCancel debug on entry (to function): "])
  72. (byte-code "└┴Mê┬├Mç" [debug-convert-byte-code #[(function) "Kë:?¡╣┬    ├\"┼ A@╞ 8╟ 8FC╔ ¢½è╩╔ 8DB╦ 8½ê╦ 8B╠ @BBM*)ç" [function defn append nil contents byte-code 2 3 body 5 interactive 4 lambda] 6] debug-on-entry-1 #[(function defn flag) "└    !½à┬├ \"ç    @┼=½ê╞     A#ç    @╚=¼à┬╔ \"ê╩ë      AA@;½ô═    ¢     @    A@    AA@E ¬ì    AA     @    A@D  @╬Ü=½â    ¬ô½ë ╧ Bñ¬å  Añ*ç" [subrp defn error "%s is a built-in function" function macro debug-on-entry-1 flag lambda "%s not user-defined Lisp function" nil prec tail 3 (debug 'debug) (debug 'debug)] 4]] 2)
  73. (fset 'debugger-list-functions #[nil "└É    ¼à┬├!¬ƒ┬─!ê    ë½Ä╞@!ê╟ êAë¼r)┬╚!ê┬╔!æç" ["*Help*" debug-function-list princ "No debug-on-entry functions now\n" "Functions set to debug on entry:\n\n" list prin1 terpri "Note: if you have redefined a function, then it may no longer\n" "be set to debug on entry, even if it is in the list."] 4 "\
  74. Display a list of all the functions now set to debug on entry." nil])
  75.